home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00084_Photo Album Score Script.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  2.4 KB  |  103 lines
  1. on exitFrame
  2.   global gbRollShoot1, gbRollShoot2, gbRollShoot3, giInPlay, gobackto, biggie, set1offguy
  3.   set gobackto to the frame
  4.   repeat with x = 2 to 4
  5.     if rollOver(x) then
  6.       set the cursor of sprite x to [563, 564]
  7.     end if
  8.   end repeat
  9.   repeat with x = 5 to 8
  10.     if rollOver(x) then
  11.       set the cursor of sprite x to [561, 562]
  12.     end if
  13.   end repeat
  14.   repeat with x = 5 to 8
  15.     if rollOver(x) then
  16.       set the visible of sprite x to 1
  17.       next repeat
  18.     end if
  19.     set the visible of sprite x to 0
  20.   end repeat
  21.   set the cursor of sprite 10 to [561, 562]
  22.   repeat with x = 28 to 31
  23.     if rollOver(x) then
  24.       set the cursor of sprite x to [561, 562]
  25.     end if
  26.   end repeat
  27.   repeat with x = 28 to 31
  28.     if rollOver(x) then
  29.       set the visible of sprite x to 1
  30.       next repeat
  31.     end if
  32.     set the visible of sprite x to 0
  33.   end repeat
  34.   if rollOver(16) and (gbRollShoot1 <> 1) then
  35.     repeat with i = 12 to 14
  36.       set the visible of sprite i to 1
  37.     end repeat
  38.     set gbRollShoot1 to 1
  39.   else
  40.     if not rollOver(16) and (gbRollShoot1 <> 0) then
  41.       repeat with i = 12 to 14
  42.         set the visible of sprite i to 0
  43.       end repeat
  44.       set gbRollShoot1 to 0
  45.     end if
  46.   end if
  47.   if rollOver(17) and (gbRollShoot2 <> 1) then
  48.     set the visible of sprite 10 to 1
  49.     set gbRollShoot2 to 1
  50.   else
  51.     if not rollOver(17) and (gbRollShoot2 <> 0) then
  52.       set the visible of sprite 10 to 0
  53.       set gbRollShoot2 to 0
  54.     end if
  55.   end if
  56.   if rollOver(18) and (gbRollShoot3 <> 1) then
  57.     repeat with i = 5 to 8
  58.       set the visible of sprite i to 1
  59.     end repeat
  60.     set gbRollShoot3 to 1
  61.   else
  62.     if not rollOver(18) and (gbRollShoot3 <> 0) then
  63.       repeat with i = 5 to 8
  64.         set the visible of sprite i to 0
  65.       end repeat
  66.       set gbRollShoot3 to 0
  67.     end if
  68.   end if
  69.   go(the frame)
  70.   if giInPlay = 1 then
  71.     if the timer > 100 then
  72.       startTimer()
  73.       cNextShot(1)
  74.     end if
  75.   end if
  76. end
  77.  
  78. on keyUp
  79.   set moviemovie to the castNum of sprite 3
  80.   put moviemovie
  81.   set the sound of cast moviemovie to 0
  82.   if the keyCode = 123 then
  83.     set the movieRate of sprite 3 to 0
  84.   else
  85.     if the keyCode = 124 then
  86.       set the movieRate of sprite 3 to 0
  87.     end if
  88.   end if
  89. end
  90.  
  91. on keyDown
  92.   set moviemovie to the castNum of sprite 3
  93.   put moviemovie
  94.   set the sound of cast moviemovie to 0
  95.   if the keyCode = 123 then
  96.     cNextShot(-1)
  97.   else
  98.     if the keyCode = 124 then
  99.       cNextShot(1)
  100.     end if
  101.   end if
  102. end
  103.